home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)td.d64 / home file.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  222 lines
  1. 5 POKE53280,11:POKE53281,0:PRINT"[154]"
  2. 10 PRINT"[147]";CHR$(142):GOSUB2000
  3. 15 DIMIC(601),N$(601),P$(100):OPEN15,8,15,"I0":OPEN3,0
  4. 20 OPEN5,8,5,"0:INDEX"
  5. 21 INPUT#15,A,M$,C,D:IFA=62THENCLOSE5:GOTO45
  6. 23 IFA>0THENGOSUB620
  7. 25 FORF=1TO601:INPUT#5,IC(F),N$(F):NEXT
  8. 30 INPUT#5,CT:CLOSE5
  9. 40 GOTO48
  10. 45 FORF=1TO601:IC(F)=0:N$(F)="*":NEXT:CT=0
  11. 48 PRINT"[147]";CHR$(14)
  12. 50 XT$="[205]ASTER [205]ENU"
  13. 52 GOSUB400
  14. 54 PRINT"          1) [193]DD [206]EW [198]ILE"
  15. 56 PRINT"          2) [196]ISPLAY [198]ILE"
  16. 57 PRINT"          3) [204]IST [198]ILES"
  17. 58 PRINT"          4) [212]OTAL [194]LANK [198]ILES"
  18. 60 PRINT"          5) [212]OTAL [214]ALUE"
  19. 64 PRINT"          0) [197]ND"
  20. 65 PRINT"          [205]ENU #:1[157]";:INPUT#3,O$:PRINT
  21. 66 IFO$="0"THENGOSUB450:CLOSE3:CLOSE15:PRINT"[147]":END
  22. 67 X1$="MENU"
  23. 68 IFO$="1"THEN100
  24. 70 IFO$="3"THEN340
  25. 72 IFO$="4"THEN500
  26. 73 IFO$="5"THEN718
  27. 74 IFO$<>"2"THEN50
  28. 76 GOTO210
  29. 100 XT$="[193]DD [206]EW [198]ILE"
  30. 105 GOSUB400
  31. 106 FORF=1TO601:IFN$(F)="*"THEN110
  32. 107 NEXT
  33. 108 PRINT"[212]HIS [198]ILE IS [198][213][204][204]":GOTO50
  34. 110 PRINT"[151][201]TEM :[193]BC[154]":GOSUB850
  35. 120 PRINT"[151][205]ODEL:[193]BC[154]":GOSUB850
  36. 130 PRINT"[151][211]ER #:123[154]":GOSUB850
  37. 132 PRINT"[151][196]ATE :[205][205]/[196][196]/[217][217][154]":GOSUB850
  38. 134 PRINT"[151][195]OST :$000[154]":GOSUB850
  39. 135 PRINT"[151][195]OMMENT:[193]BC[154]"
  40. 140 GOSUB930
  41. 160 X$="[211]AVE  "
  42. 165 GOSUB900
  43. 170 IFF1THENGOSUB1100:GOTO185
  44. 175 IFF3THEN50
  45. 180 GOTO165
  46. 185 IC(F)=F:N$(F)=B$(1):CT=CT+VAL(B$(5))
  47. 190 GOTO50
  48. 210 XT$="[196]ISPLAY [198]ILE"
  49. 215 GOSUB400
  50. 220 PRINT"";TAB(5);"[198]ILE [206]AME:[193]BC[157][157][157]";:INPUT#3,SN$:PRINT
  51. 225 Q=0:GOSUB800
  52. 230 FORF=1TO601
  53. 235 IFN$(F)="*"THEN245
  54. 240 IFLEFT$(SN$,3)=LEFT$(N$(F),3)THENPRINTTAB(5);N$(F);TAB(33);F:Q=1
  55. 245 NEXT:IFQ>0THEN250
  56. 246 PRINTTAB(5);"[198]ILE [206][207][212] [198]OUND":X$="[195]ONTINUE"
  57. 247 GOSUB900:IFF1THEN210
  58. 248 IFF3THEN50
  59. 249 GOTO247
  60. 250 PRINTTAB(5)"[197]NTER [198]ILE #1   [157][157][157][157]";:INPUT#3,F:PRINT
  61. 252 IFF>601THENPRINT"[145][145][145]":GOTO250
  62. 253 IFIC(F)<1THENPRINT"[145][145][145]":GOTO250
  63. 259 GOSUB1000:XT$="[196]ISPLAY [198]ILE":GOSUB400:PRINT""
  64. 260 PRINT"[151][201]TEM :[154]";B$(1):PRINT
  65. 265 PRINT"[151][205]ODEL:[154]";B$(2):PRINT
  66. 270 PRINT"[151][211]ER #:[154]";B$(3):PRINT
  67. 275 PRINT"[151][196]ATE :[154]";B$(4):PRINT
  68. 280 PRINT"[151][195]OST :$[154]";B$(5):PRINT
  69. 285 PRINT"[151][195]OMMENT:[154]";B$(6)
  70. 295 X$="[196]ELETE":X1$="UPDATE":X2$="MENU"
  71. 300 GOSUB890
  72. 305 IFF1THEN325
  73. 310 IFF3THEN1300
  74. 312 IFF5THEN50
  75. 315 GOTO300
  76. 325 PRINT"[145]     [214]ERIFY [198]ILE FOR [196]ELETE:([217]/[206])      "
  77. 328 GETA$:IFA$=""THEN328
  78. 330 IFA$="[217]"ORA$="Y"THENCT=CT-VAL(B$(5)):IC(F)=0:N$(F)="*"
  79. 335 GOTO50
  80. 340 XT$="[198]ILE [204]ISTING":LM=1
  81. 345 GOSUB400:GOSUB800:X$="CONTINUE":Q=0
  82. 350 FORF=1TO601
  83. 355 IFN$(F)<>"*"THENPRINTTAB(5)N$(F)TAB(33)F:LM=LM+1:Q=1
  84. 360 IFLM>13THEN375
  85. 370 NEXT
  86. 371 PRINTTAB(5)"[197]ND OF [204]ISTING[146]":GOTO550
  87. 375 GOSUB900:IFF1THENLM=1:GOSUB400:GOSUB800:GOTO370
  88. 380 IFF3THEN50
  89. 385 GOTO375
  90. 400 PRINT"[147]";TAB(10);"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  91. 405 PRINTTAB(16)XT$
  92. 410 PRINTTAB(10)"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]":RETURN
  93. 450 OPEN5,8,5,"@0:INDEX,S,W"
  94. 460 FORF=1TO601:PRINT#5,IC(F);CHR$(13);N$(F);CHR$(13);
  95. 470 NEXT
  96. 480 PRINT#5,CT;CHR$(13);:GOSUB600
  97. 490 CLOSE5
  98. 495 RETURN
  99. 500 CN=0
  100. 510 PRINTTAB(10)"[145][194]LANK [198]ILES[146]":PRINT
  101. 520 FORF=1TO601:IFIC(F)>0THENCN=CN+1
  102. 525 NEXT
  103. 530 CN=601-CN
  104. 540 PRINTTAB(13)CN
  105. 550 X$="[157][157][157][157][157]      "
  106. 560 GOSUB900
  107. 570 IFF3THEN50
  108. 580 GOTO560
  109. 600 INPUT#15,A,M$,C,D
  110. 610 IFA=0THENRETURN
  111. 620 PRINT"[197]RROR :";A;M$;C;D
  112. 630 PRINT"[195]ONTINUE:[217][157]";:INPUT#3,Y$:IFY$="Y"ORY$="[217]"THENRETURN
  113. 640 CLOSE5:CLOSE2:CLOSE3:CLOSE15:STOP
  114. 718 R$=STR$(INT(CT)):R$="$"+R$+".00"
  115. 720 PRINTTAB(10)"[145][212]OTAL [214]ALUE[146]":PRINT:PRINTTAB(10)R$
  116. 730 GOTO550
  117. 735 B$(Z)="":X=0:PRINTTAB(TB)"[164][157]";
  118. 740 GETA$:IFA$=""THEN740
  119. 745 IFA$=CHR$(13)THENPRINT" ":FORT=0TOX:B$(Z)=B$(Z)+P$(T):NEXT:PRINT:RETURN
  120. 750 IFA$=CHR$(17)ORA$=CHR$(29)ORA$=CHR$(145)ORA$=CHR$(157)ORA$=CHR$(34)THEN740
  121. 751 IFA$=CHR$(148)THEN740
  122. 752 IFA$=CHR$(20)ANDX=0THEN740
  123. 755 IFA$=CHR$(20)THENX=X-1:GOTO775
  124. 760 X=X+1
  125. 765 IFX>LLTHENPRINTCHR$(20);:X=X-1
  126. 770 P$(X)=A$
  127. 775 PRINTA$"[164][157]";
  128. 780 GOTO740
  129. 800 PRINT"";TAB(5)"[198]ILE [206]AME"TAB(31)"[198]ILE #"
  130. 810 PRINTTAB(5)"[183][183][183][183][183][183][183][183][183]"TAB(31)"[183][183][183][183][183][183]"
  131. 820 RETURN
  132. 850 PRINTTAB(5)"[151][188]--------------------------------[190][154]"
  133. 860 RETURN
  134. 890 PRINT"":FORT=1TO22:PRINT:NEXT
  135. 895 PRINT" [151][198]1-";X$;TAB(17);"[198]3-";X1$;TAB(32);"[198]5-";X2$;"[154][145]":GOTO905
  136. 900 PRINT"":FORT=1TO22:PRINT:NEXT
  137. 902 PRINTTAB(6)"[151][198]1-";X$;TAB(25);"[198]3-";X1$;"[154][145]"
  138. 905 F1=0:F3=0:F5=0
  139. 910 GETA$:IFA$=""THEN910
  140. 912 IFA$=CHR$(133)THENF1=1:RETURN
  141. 914 IFA$=CHR$(134)THENF3=1:RETURN
  142. 916 IFA$=CHR$(135)THENF5=1:RETURN
  143. 920 GOTO910
  144. 930 PRINT"":FORT=1TO5:PRINT:NEXT
  145. 935 Z=1:TB=6:LL=25:GOSUB735
  146. 940 Z=2:GOSUB735
  147. 945 Z=3:GOSUB735
  148. 950 Z=4:GOSUB735
  149. 955 Z=5:TB=7:LL=9:GOSUB735
  150. 960 Z=6:TB=8:LL=71:GOSUB735
  151. 965 PRINT"[145]":RETURN
  152. 1000 OPEN2,8,2,"#"
  153. 1010 GOSUB1200
  154. 1020 PRINT#15,"U1:";2;0;T;S
  155. 1030 PRINT#15,"B-P:";2;1
  156. 1040 GOSUB600
  157. 1050 FORM=1TO6:INPUT#2,B$(M):NEXT
  158. 1090 CLOSE2:RETURN
  159. 1100 OPEN2,8,2,"#"
  160. 1110 GOSUB1200
  161. 1120 PRINT#15,"B-P:";2;1
  162. 1130 FORM=1TO6:PRINT#2,B$(M);CHR$(13);:NEXT
  163. 1140 PRINT#15,"U2:";2;0;T;S
  164. 1150 GOSUB600
  165. 1160 CLOSE2
  166. 1170 RETURN
  167. 1200 IFF<295THENF1=0:F2=22:F3=1:GOTO1240
  168. 1210 IFF>294ANDF<409THENF1=294:F2=20:F3=19:GOTO1240
  169. 1220 IFF>408ANDF<517THENF1=408:F2=19:F3=25:GOTO1240
  170. 1230 IFF>516THENF1=516:F2=18:F3=31
  171. 1240 T=INT(((F-F1)-1)/(F2-1))+F3
  172. 1250 S=F-F1-(T-F3)*F2+(T-F3-1)
  173. 1260 RETURN
  174. 1300 X$="SELECT"
  175. 1305 SF=0
  176. 1310 GOSUB890:IFSF=7THENSF=0
  177. 1320 IFF1THENSF=SF+1:GOTO1350
  178. 1330 IFF3THEN1400
  179. 1335 IFF5THEN50
  180. 1340 GOTO1310
  181. 1350 ONSFGOTO1360,1365,1370,1375,1380,1385
  182. 1360 L=16:GOSUB1390:PRINT"[151][195]OMMENT:[154]":L=6:GOSUB1390:PRINT"[201]TEM :[145]":GOTO1310
  183. 1365 L=6:GOSUB1390:PRINT"[151][201]TEM :[154]":PRINT:PRINT"[205]ODEL:[145]":GOTO1310
  184. 1370 L=8:GOSUB1390:PRINT"[151][205]ODEL:[154]":PRINT:PRINT"[211]ER #:[145]":GOTO1310
  185. 1375 L=10:GOSUB1390:PRINT"[151][211]ER #:[154]":PRINT:PRINT"[196]ATE :[145]":GOTO1310
  186. 1380 L=12:GOSUB1390:PRINT"[151][196]ATE :[154]":PRINT:PRINT"[195]OST :[145]":GOTO1310
  187. 1385 L=14:GOSUB1390:PRINT"[151][195]OST :[154]":PRINT:PRINT"[195]OMMENT:[145]":GOTO1310
  188. 1390 PRINT"":FORT=1TOL:PRINT:NEXT:RETURN
  189. 1400 ONSFGOTO1410,1420,1430,1440,1450,1460
  190. 1410 Z=1:TB=6:LL=25:L=6
  191. 1415 GOSUB1390:GOSUB735:N$(F)=B$(Z):GOTO1475
  192. 1420 Z=2:TB=6:LL=25:L=8:GOTO1470
  193. 1430 Z=3:TB=6:LL=25:L=10:GOTO1470
  194. 1440 Z=4:TB=6:LL=25:L=12:GOTO1470
  195. 1450 Z=5:TB=7:LL=9:L=14:GOTO1470
  196. 1460 Z=6:TB=8:LL=71:L=16
  197. 1470 GOSUB1390:GOSUB735
  198. 1475 GOSUB890:IFF1THEN1300
  199. 1480 IFF3THENGOSUB1100:GOTO50
  200. 1485 IFF5THEN50
  201. 1490 GOTO1475
  202. 2000 PRINT"":PRINT"[152]"
  203. 2005 PRINTTAB(10);"[191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191]":PRINT"[145]"
  204. 2006 FORTL=1TO18
  205. 2007 PRINTTAB(10);"[191][146]                  [191][146]"
  206. 2008 NEXT
  207. 2009 PRINTTAB(10);"[191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191]":PRINT:PRINT"[154]"
  208. 2010 PRINTTAB(11)" [181] [182] [206][183][205] [206][205][206][205] [206][183][184] "
  209. 2020 PRINTTAB(11)" [204][175][186] [180] [170] [180][167][165][170] [204][185]  "
  210. 2030 PRINTTAB(11)" [165] [167] [180] [170] [180][170][180][170] [180]   "
  211. 2040 PRINTTAB(11)" [181] [182] [205][175][206] [181]  [182] [205][175][185] "
  212. 2050 PRINT""
  213. 2060 PRINTTAB(12)" [206][183][184]  [181] [181]   [206][183][184] "
  214. 2070 PRINTTAB(12)" [204][185]   [181] [181]   [204][185]  "
  215. 2080 PRINTTAB(12)" [180]    [181] [181]   [180]   "
  216. 2090 PRINTTAB(12)" [181]    [161] [205][175][185] [205][175][185] "
  217. 2100 PRINT""
  218. 2110 PRINTTAB(17)"[152] BY [154]"
  219. 2120 PRINT
  220. 2130 PRINTTAB(13)"ERWIN ROTHNER"
  221. 2140 RETURN
  222.